if orderfm.visible=-1 then lbaggo.enabled=0 else lbaggo.enabled=-1
if orderfm.visible=-1 then pbaggo.enabled=0 else pbaggo.enabled=-1
if orderfm.visible=-1 then lcango.enabled=0 else lcango.enabled=-1
if orderfm.visible=-1 then pcango.enabled=0 else pcango.enabled=-1
if orderfm.visible=-1 then lbookgo.enabled=0 else lbookgo.enabled=-1
if orderfm.visible=-1 then pbookgo.enabled=0 else pbookgo.enabled=-1
if orderfm.visible=-1 then lcupgo.enabled=0 else lcupgo.enabled=-1
if orderfm.visible=-1 then pcupgo.enabled=0 else pcupgo.enabled=-1
end sub
-->
</SCRIPT>
<!-- Cup N go controls are transparent labels which retain their state as the image beneath them changes. These controls choose other pages (URLs). -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup1go_MouseDown(Button, Shift, X, Y)
empcup1.Visible = True
fulcup1.Visible = False
end sub
Sub cup1go_MouseUp(Button, Shift, X, Y)
Window.location.href = "Volcano.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup2go_MouseDown(Button, Shift, X, Y)
fulcup2.Visible = False
empcup2.Visible = True
end sub
Sub cup2go_MouseUp(Button, Shift, X, Y)
Window.location.href = "beans.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup4go_MouseDown(Button, Shift, X, Y)
fulcup4.Visible = False
empcup4.Visible = True
end sub
Sub cup4go_MouseUp(Button, Shift, X, Y)
Window.location.href = "cafe.htm"
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub cup5go_MouseDown(Button, Shift, X, Y)
fulcup5.Visible = False
empcup5.Visible = True
end sub
Sub cup5go_MouseUp(Button, Shift, X, Y)
Window.location.href = "counter.htm"
end sub
-->
</SCRIPT>
<!-- Shows prompt for scrollbar. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordread_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
Call Procedure2()
end sub
-->
</SCRIPT>
<!-- Hides all the parts of the Order Form. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordcancel_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080
ordhead.Caption = "Click on 'Cancel' to erase entire order and begin again."
end sub
Sub ordcancel_Click()
price(1)=0
price(2)=0
price(3)=0
price(4)=0
amt1.caption=""
amt2.caption=""
amt3.caption=""
amt4.caption=""
gift1.caption=""
gift2.caption=""
gift3.caption=""
gift4.caption=""
gift(1)=""
gift(2)=""
gift(3)=""
gift(4)=""
line(1)=""
line(2)=""
line(3)=""
line(4)=""
Call Procedure6()
Call Procedure7()
end sub
-->
</SCRIPT>
<!-- L X go are transparent labels that select products shown in bitmap.. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Lcupgo_Click()
ordread.Caption = "6 cup set"
call Procedure1()
glogift=4
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Lcango_Click()
ordread.Caption = "canister"
call Procedure1()
glogift=2
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Lbookgo_Click()
ordread.Caption = "Cookbook"
call Procedure1()
glogift=3
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Lbaggo_Click()
ordread.Caption = "tote bag"
call Procedure1()
glogift=1
end sub
-->
</SCRIPT>
<!-- P X go are labels that go with the pictures above and also select products -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Pcupgo_Click()
ordread.Caption = " 6 cup set"
call Procedure1()
glogift=4
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Pcango_Click()
ordread.Caption = "canister"
call Procedure1()
glogift=2
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Pbookgo_Click()
ordread.Caption = "cookbook"
call Procedure1()
glogift=3
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Pbaggo_Click()
ordread.Caption = "tote bag"
call Procedure1()
glogift=1
end sub
-->
</SCRIPT>
<!-- These two display order message then restore previous text. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordpro_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080
if ordresult.visible= 0 then ordhead.Caption = "Click on this button to add this item to your shopping list." else ordhead.caption="This sample lacks server-side scripting, so coffee page totals don't carry over."
end sub
Sub ordpro_MouseDown(Button, Shift, X, Y)
if ordresult.visible= 0 then ordhead.Caption ="Use the up and down arrows to select a quantity." else ordhead.Caption ="This data would be sent with credit card info to a database."
call Procedure4()
end sub
-->
</SCRIPT>
<!-- Uses a scrollbar to increment displayed quantity. -->
<SCRIPT LANGUAGE="VBScript">
<!--
dim q
Sub ordquan_Change()
q=ordquan.value
ordnum.caption=q
if q=1 then ordess.visible=False else ordess.visible=True
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordnum_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
Call Procedure2()
end sub
-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ordplease_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
Call Procedure2()
end sub
-->
</SCRIPT>
<!-- Sets order form heading to default message -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub orderfm_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00800000
ordhead.Caption = "Order Here from the Volcano Coffee Online Company Store"
end sub
-->
</SCRIPT>
<!-- maintain current state and add or modify an item. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub redobutt_MouseMove(ByVal Button, ByVal Shift, ByVal X, ByVal Y)
ordhead.ForeColor = &H00404080:ordhead.Caption = "Click on this button to choose another coffee or redo entry."
end sub
Sub redobutt_Click()
Call Procedure2()
Call Procedure6()
Call Procedure7()
end sub
-->
</SCRIPT>
<!-- Characteristics of various controls defined below. -->
